object frmModificador: TfrmModificador
  Left = 52
  Top = 87
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Modificador de Presupuesto'
  ClientHeight = 429
  ClientWidth = 729
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label7: TLabel
    Left = 76
    Top = 235
    Width = 134
    Height = 13
    Caption = 'Materiales a Descontar:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBText5: TDBText
    Left = 261
    Top = 235
    Width = 48
    Height = 13
    Alignment = taRightJustify
    AutoSize = True
    DataField = 'total'
    DataSource = sModificador
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 729
    Height = 52
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 13555670
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label3: TLabel
      Left = 4
      Top = 28
      Width = 99
      Height = 14
      Caption = 'Presupuesto N'#186':'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 260
      Top = 28
      Width = 90
      Height = 14
      Caption = 'Denominaci'#243'n:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 122
      Top = 28
      Width = 52
      Height = 14
      AutoSize = True
      DataField = 'ID_PRESUPUESTO'
      DataSource = sPres
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBText3: TDBText
      Left = 370
      Top = 28
      Width = 52
      Height = 14
      AutoSize = True
      DataField = 'DENOMINACION'
      DataSource = sPres
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Panel3: TPanel
      Left = 63
      Top = 8
      Width = 665
      Height = 2
      BevelOuter = bvNone
      Color = 666076
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Panel8: TPanel
      Left = 95
      Top = 16
      Width = 633
      Height = 2
      BevelOuter = bvNone
      Color = 9009548
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 52
    Width = 393
    Height = 377
    Align = alLeft
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Caption = 'Total c/IVA:'
    Color = 10791869
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object lblsubtotal: TDBText
      Left = 275
      Top = 316
      Width = 80
      Height = 13
      Alignment = taRightJustify
      DataField = 'subtotal'
      DataSource = sMatAux
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 161
      Top = 316
      Width = 96
      Height = 13
      Caption = 'Subtotal Materiales:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 161
      Top = 331
      Width = 96
      Height = 13
      Caption = 'Materiales Globales:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lblGlobal: TLabel
      Left = 275
      Top = 331
      Width = 80
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'lblGlobal'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label10: TLabel
      Left = 177
      Top = 361
      Width = 80
      Height = 13
      Caption = 'Total Materiales:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object lblTotal: TLabel
      Left = 275
      Top = 361
      Width = 80
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'lblTotal'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label12: TLabel
      Left = 155
      Top = 346
      Width = 102
      Height = 13
      Caption = 'Por Al'#237'cuota Material:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object porAlicuota: TLabel
      Left = 275
      Top = 346
      Width = 80
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'porAlicuota'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object grdMateriales: TDBGrid
      Left = 8
      Top = 10
      Width = 377
      Height = 302
      DataSource = sMatAux
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clNavy
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = [fsBold]
      OnDblClick = grdMaterialesDblClick
      Columns = <
        item
          Expanded = False
          FieldName = 'MATERIAL'
          Title.Alignment = taCenter
          Title.Caption = 'Material'
          Width = 162
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'UNIDAD'
          Title.Alignment = taCenter
          Title.Caption = 'Unidad'
          Width = 47
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CANTIDAD'
          Title.Alignment = taCenter
          Title.Caption = 'Cantidad'
          Width = 59
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'total'
          Title.Alignment = taCenter
          Title.Caption = 'Total'
          Width = 70
          Visible = True
        end>
    end
  end
  object Panel4: TPanel
    Left = 393
    Top = 52
    Width = 336
    Height = 377
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 13555670
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    DesignSize = (
      336
      377)
    object Label2: TLabel
      Left = 64
      Top = 6
      Width = 210
      Height = 27
      Alignment = taCenter
      AutoSize = False
      Caption = 'Materiales que ser'#225'n descontados del presupuesto original'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      WordWrap = True
    end
    object Label4: TLabel
      Left = 209
      Top = 252
      Width = 27
      Height = 13
      Caption = 'Neto:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object DBText4: TDBText
      Left = 240
      Top = 252
      Width = 75
      Height = 13
      Alignment = taRightJustify
      DataField = 'total'
      DataSource = sModificador
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label8: TLabel
      Left = 208
      Top = 283
      Width = 28
      Height = 13
      Caption = 'Total:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object DBText6: TDBText
      Left = 240
      Top = 283
      Width = 75
      Height = 13
      Alignment = taRightJustify
      DataField = 'totalConIva'
      DataSource = sModificador
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label11: TLabel
      Left = 9
      Top = 268
      Width = 61
      Height = 13
      Caption = 'Por Al'#237'cuota:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object DBText7: TDBText
      Left = 75
      Top = 268
      Width = 75
      Height = 13
      Alignment = taRightJustify
      DataField = 'totalPorAlicuota'
      DataSource = sModificador
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 30
      Top = 284
      Width = 40
      Height = 13
      Caption = 'Por IVA:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object DBText1: TDBText
      Left = 75
      Top = 284
      Width = 75
      Height = 13
      Alignment = taRightJustify
      DataField = 'totalPorIva'
      DataSource = sModificador
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label13: TLabel
      Left = 172
      Top = 268
      Width = 64
      Height = 13
      Caption = 'Con Al'#237'cuota:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object DBText8: TDBText
      Left = 240
      Top = 268
      Width = 75
      Height = 13
      Alignment = taRightJustify
      DataField = 'totalAlicuota'
      DataSource = sModificador
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object grdModificador: TDBGrid
      Left = 8
      Top = 40
      Width = 321
      Height = 209
      DataSource = sModificador
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clNavy
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = [fsBold]
      OnDrawColumnCell = grdModificadorDrawColumnCell
      Columns = <
        item
          Expanded = False
          FieldName = 'MATERIAL'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = 'Material'
          Width = 157
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CANTIDAD'
          Title.Alignment = taCenter
          Title.Caption = 'Cantidad'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'subtotal'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = 'Subtotal'
          Width = 62
          Visible = True
        end>
    end
    object Panel5: TPanel
      Left = 8
      Top = 300
      Width = 321
      Height = 40
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Color = 11580341
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object nvgModificador: TDBNavigator
        Left = 12
        Top = 8
        Width = 300
        Height = 25
        DataSource = sModificador
        VisibleButtons = [nbPrior, nbNext, nbInsert, nbDelete, nbPost, nbCancel]
        Flat = True
        TabOrder = 0
        OnClick = nvgModificadorClick
      end
    end
    object btnGrabar: TBitBtn
      Left = 173
      Top = 346
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Grabar'
      Default = True
      Enabled = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btnGrabarClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object btnAceptar: TBitBtn
      Left = 253
      Top = 346
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = 'Cerrar'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      Kind = bkCancel
    end
    object btnDescontarTodo: TBitBtn
      Left = 8
      Top = 346
      Width = 129
      Height = 25
      Caption = 'Descontar Todo'
      TabOrder = 4
      OnClick = btnDescontarTodoClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
        3333333777333777FF3333993333339993333377FF3333377FF3399993333339
        993337777FF3333377F3393999333333993337F777FF333337FF993399933333
        399377F3777FF333377F993339993333399377F33777FF33377F993333999333
        399377F333777FF3377F993333399933399377F3333777FF377F993333339993
        399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399
        99333773FF3333777733339993333339933333773FFFFFF77333333999999999
        3333333777333777333333333999993333333333377777333333}
      NumGlyphs = 2
    end
  end
  object sMatAux: TDataSource
    DataSet = cMatAux
    Left = 16
    Top = 296
  end
  object cMatAux: TSQLClientDataSet
    CommandText = 'select *  from MATERIALAUX'
    Aggregates = <>
    AggregatesActive = True
    IndexFieldNames = 'material'
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    OnCalcFields = cMatAuxCalcFields
    DBConnection = Datos.Con
    Left = 48
    Top = 296
    object cMatAuxID_MATERIAL: TFloatField
      FieldName = 'ID_MATERIAL'
    end
    object cMatAuxMATERIAL: TStringField
      FieldName = 'MATERIAL'
      Size = 32
    end
    object cMatAuxCANTIDAD: TFloatField
      FieldName = 'CANTIDAD'
      DisplayFormat = '#,###,##0.00'
    end
    object cMatAuxRUBRO: TStringField
      FieldName = 'RUBRO'
      Size = 38
    end
    object cMatAuxUNIDAD: TStringField
      FieldName = 'UNIDAD'
      Size = 5
    end
    object cMatAuxtotal: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'total'
      DisplayFormat = '#,###,##0.00'
    end
    object cMatAuxsubtotal: TAggregateField
      FieldName = 'subtotal'
      Visible = True
      Active = True
      DisplayFormat = '#,###,##0.00'
      Expression = 'sum(total)'
    end
  end
  object sPres: TDataSource
    DataSet = Datos.cPresupuesto
    Left = 80
    Top = 296
  end
  object sModificador: TDataSource
    DataSet = Datos.cModificador
    OnStateChange = sModificadorStateChange
    Left = 112
    Top = 296
  end
end
